THE AMAZING BI-PLOT 


We all Know, of course, that the daffy-nition of BI- 
PLOT is "ihe purchasing of a devious plan." Or any 
number of other bizarre things, which ГИ leave you 
to decipher. 


Ah, but let's get back То the real world. This 
article gives а demo of a way to do high-resolution 
grey-scale graphics. That's right! Though I may be 
stretching the definition, we'll actually see the 
2X81/T81000 display a high-res scale of three shades 
- black, white and grey. A quote I just inverted 


runs, "Three shades doth verily a grey-scale 
maketh." 


We'll once again use bizarre methods to put that 
remarkable ZX hardware /software combination to work; 
deviously planning to make it do things even that IT 
never thought possible. Best of all, you won't have 

to purchase a thing (assuming that you're with us so 
far on this high-res stuff). 


For the sake of the бето, let's по back in time. Way 
back... do you remember SWN Vol. 1, Kids? This 
contained a lot of (sometimes embarrassing) “early 
Fred Nachbaur," including a "GrevPlot demo" that I 
also used in my СЕ-АМР program (пом in shareware). 
Well, what could be better than to repeat that early 
demo, using this modification of WRX167 
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WHAT ІТ DOES 


BIPLOT works much like "QUICK" mode (SWN 5:2) does, 


in the sense that it uses the built-in FRAMES 
counter (ERMS in Hot-Z-ese) to display different 
things in alternate fields of the TV display. Unlike 
QUICK, though, we have a continuous display, even 


though the speed is na faster than normal SLOV mode, 


{The good news is, we can use FAST mode to do all 
aur plotting, then get into compute-and-display mode 
io view and play with the result.) 


The way we do it, is to toggle between two different 
high-res display files. Anything plotted in both 
display files shows up as black for white in inverse 
mode). Anything plotted in only one display file 
will only be displayed every other time. Asa 
result, these points will look "grey," Anything else 
is in the background color (white or black, in 
normal and inverse modes respectively). 


in the Пето, two sets of axes are drawn, one in each 
display file. However, different horizontal axes are 
printed just for demo purposes. Two different 
functions are plotted into each of the display 
files; their product is printed in both. 


After the display has been created, you can view 
either hi-res display file, or both. You can also 
reverse the video at any time. 
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THE DEMO 


This demo displays several of WRXié’s unique 
features: 


i: Bit-mapped video file. This makes our 
piotiing, eic. extremely compact (the whole mini- 
operating system takes less than 256 bytes), it's 
memory-mapped, allowing us write to it from 
BASIC, using FOKE. 


2: Any op all vertical columns сап be reversed. 
То reverse a column, change the corresponding 
element of the dummy display file io 128 
(decimal, Our "reverse" (RVRE) routine simply 
toggles all 32 locations (columns) between Û and 
128 whenever it is called. 

WRX LL 
3: WRx16 is extremely adaptable. We can change 
the number of hi-res and low-res lines at will. P6. 
We can da different things in different fields of 
the TV display. We can even do "QUICK" mode! 
(Topic for a future installment, if the interest 
is there.) 
4: Since a full hi-res bit map of a 2565192 
screen takes бК, anc we only have ВК available; 
we have to cut down the size of the hi-res 
portion to 2/3 of its full size. This gives two 
4K blocks that can be used for two display files. 
With the high-res display files in high memory 
ias with Tim Stoddard's setup or with Delta), 
these could possibly be brought back to full 
size. However, this version demonstrates yet 
another neat trait of WHxió: you can display апу 
combination of hi-res/low-res rows on one screen. 


ENTERING THE PROGRAM 


THE EASY WAY 


Ong way to do this ong is #rom the ground up. 
However, if you have followed the demos so far, you 
tan save some time. Load the demo program of 4:2, 
and delete the demo portion (everything between and 
including lines 7 through 540). Leave line 5 in 
place. Enter line 4, 


4 REM BIPLOT 
Perform the following POKEs: 


PORE 16645,4 
PORE 16646,1 
PORE 14419,4 


1 
Then delete line 5. This will "melt together" the Why Lt 
REN lines 2 and 3, giving us enough room for the ро. ų 
modified service routines. It also Keeps us from 

getting stuck in the long REM lines at the 

beginning. Henceforth, you may replace line 4, but 

not delete it. If you do you'll have to pull the 

plug to regain control. 1f you ever get in trouble 

after LIST, and the listing is stuck, LIST 4 and 

then PORE 12419,4, That'll fix it. 


FROM THE GROUND UP 


If you start from scratch, enter a i REM line 
exactly 128 characters long. This is four full lines 
on the screen, looking like this: 


і REM RXKWHHEHNEXKEHEMXNEXXXMK 
ХХХХЯХХХХХХАХХХХХХХХХХХХХХХХХХХХХХ 
EXEXXHXNXXNMNNHNXENMAEHENNNEMEN 
HXNXNMXKXXXMEXKXKHEMXKEXKRNNXMMNXERENMN 


НАНАНКККА 


ыы 
AAA 


Enter another REM line, numbered 2, long enough to 
hold at least our present operating system. To leave 
some elbow-room for any of vour additions later, 
make it, say, 312 bytes long. (FAST mode will make 
this somewhat quicker.) Then enter the loader 
program of Listing 2. RUN this to input the values 
of Table 2 into the 1 REM, and the values from table 
3 into the 2 REM. 


THE BASIC 


Now enter the BASIC program of listing 4. After 
saving with RUN 9990, the program will auto-run. 


Have fun with this. Ав a final note, let us Know if 

you want to see more reports of new developments. 
Some possible topics that already exist include: 
Using SHR-Extended BASIC from machine-code, to end 
up with a smooth, believable hi-res implementation 
of the classic SPACE INVADERS game. Using "QUICK" 
mode with WRxi6, or with quasi-hi-res programs. 
PRINTing characters in high-res. 


бо once again it’s up to you; what do you want us to 
share with уси? 


= 


THEORY 


Listing 3 shows the disassembly of the modified core 
and service routines. To make the dual display work; 
we first have to make some changes to the WRxié 
core. From 40BAh to 40С5, we have added а new 
routine which checks bit 0 of FRAMES, The subsequent 
commands cause HL to be loaded with 2000h (HRDF #1) 
or 3000h (HRDF #2), depending on the state of this 
bit. 


When viewing only one display file, the command at 
40BD is changed from AND 01 to either LD A,00 or LD 
4,01. These commands take the same time to execute, 
so this was just an easy way to insure that the loop 
wil run the same regardless of whether we've 
viewing just one, or both of the display files. 


Note that the command at 40AD was changed, and a NOP 
was added at 40С5 to compensate for the extra time 

it takes to run биг new code. H you count T-states, 
you'll see that the overall timing remains exactly 

the same. 


Note also that we load B with only 20h at 40Б2, 
since we are only displaying 128 hi-res lines. 


The only other changes are at 40Е3 and 40ED. These 
determine how many low-res rows are displayed. Since 
the hi-res portion takes іё rows, we can display š 
lo-res rows for the same 24-row overall display 
size. However, one row is lost in returning from our 
hi-res system; this is why we have to Kill some time 
at the start of DP-3, to wait for the start of the 
first line in the next available row. 


The value loaded into DE at 40Е3 represents 8000h 
plus the offset from the start of the normal display 
file, to the first byte of the starting low-res row 

to be displayed. The command at 40ED loads B with 
one more than the number of low-res rows, and C with 
7 (always), 


Just as our service routine modifies the command at 
40BD to change viewing modes, the commands at 40E3 
and 40ED could be changed to give a low-res 
"windowing" option, allowing you to scroll the 
entire low-res display up and down in the 7-row low- 
res portion of the display. Use a SYNC routine 
similar to ours here, to insure that both changes 

are made right after a vertical sync pulse, since 

you want to be sure that hoth changes will be in 
place by the start of the next field. 
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TABLE 2: BI-PLOT WRXié CORE 


START=1 2514 BYTES-128 

237:079:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:221:233:243:062:007:071: 
000:014:253:198:242:060:032:253: 
006:128:017:032:000:033:000:032: 
058:052:064:230:001:023:023:023: 
023:132:103:000:221:033:204:044: 
024:008:017:032:000:005:202:219: 
044:025:124:237:071:125:195:130: 
192:237:082:237:082:035:042:012: 
064:017:047:130:025:0462:030:237: 
071:062:245:001:007:008:205:181: 
002:205:146:002:205:032:002:221: 
033:164:064:195:164:002:000:000: 


TABLE 3: BIPLOT SERVICE ROUTINES 


START=1 6648 BYTES=177 
033:062:000:024:008:033:062:001: 
024:003:033:230:001:034:189:044: 
205:1468:065:221 :033:146:064:201: 
205:148:055:221:033:129:002:201: 
000 :033:000:032:024:003:033:000: 
048:001:000:016:054:000:011:084: 
093:019:237:176:201:033:132:044: 
001:032:000:126:198:128:119:024: 
237:038:032:024:022:038:048:024: 
018:205:073:045:024:247:038:032: 
024:015:038:048:024:011:205:086: 
065:024:247:253:203:059:214:024: 
004:253:203:059:150:237:075:054: 
064:062:126:041:144:218:173:014: 
087:089:203:058:203:027:203:058: 
203:027:203:058:203:027:046:000: 
025:086:121:230:007:060:001:000: 
008:203:002:203:017:061:032:012: 
253:203:059:084:040:004:203:193: 
024:002:203:129:015:235:113:201: 
205:043:015:253:070:052:058:052: 
054:184:040:250:062:030:237:071: 
201: 
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40AS“FS 


404? 
406 
406 
40AB 
40AD 
40AF 
4080 
4062 
4084 
4087 
40B4 
40686 
40 EF 
4000 
4001 
40С2 
40C3 
40C4 
40C5 
айра 
anra 
40CC 
40CF 
4000 
4003 
4004 
4005 
4007 
4008 
40DE 
40 DD 
4@рЕ 
AGED 
40ЕЗ 
40E4 
40E7 
41E? 
40ЕБ 
40ЕР 
40Е0 
40F3 
40F4 
40Ғ? 
40FD 
4100 
4101 
4102 
4103 


ЗЕ0? 
47 

80 
1076 
сег? 
3t 
züFD 
0580 
112000 


DD21CC4DB 
1808 
112000 
85 
сарвап 
r? 

7C 
Ері? 
7р 
C382Cü 
Е052 
ED52 
23 
2980040 
113182 
19 
ЗЕ1Е 
ED47 
ЗЕЕЗ 
010708 
CDB502 
Ср?202 
CD2002 
PD216640 


DPLY 
TILG 
TILO 
рР-0 


TILG 


DP-A 


DELY 


BITO 


Mxió 
1GR2 


DELY 


БР-1 


DP-2 


DP-3 


DI 

LD A,07 

LD B,A 
NDP 

DJNZ DP-0 
ADD A,F2 
INC A 

JR NZ DP-A 
15 В,80 

LD DE,0020 
LD HL,HRD1 
LD A, (FRMS) 


LD DE,0020 
DEC B 

JP 2 DP-3 
ADD HL,DE 
LD A,H 

LD I,À 

LD А, 

JP C082 
SBC HL,DE 
SBC HL,DE 
INC HL 


LD HL,4DFIL) 


LD DE,8231 
ADD HL,DE 
LD A,1E 

LD 1,A 

LD A,F5 

LD BC,0807 
CALL 0285 
CALL 0292 
CALL 0220 
LD 1X,DPLY 
JP POPS 
NOP 

NOP 

HALT 

NOP 


LISTING 2 


(ust m tape) 


4108-213Е00 DPLI LD HL,003E 
410В 1808 JR STOR 
10D 213601  DPL2 LD HL,LDA1I 
4110 1803 JR STOR 
4112 21Е401 РІЗ LD HL,O1Eé4 
4115 228040 STOR LD <BITO),HL 
4118 CDAS41 HRES CALL 4148 
4118 00215440 LD IX,DPLY 
411F C? RET 
4120 СрА841 NRML CALL 4148 
4123 DD218102 LD 1X,0281 
4127 С? RET 
4128 00 МОР 
4129 210020 CLS! LD HL,HRDI 
4120 1803 JR CLS& 
412Е 210030 CLS? LD HL,HRD2 
4131 010010 СБЖ LD ВС,1000 
4134 3400 LD £HL?,00 
4134 0B FILL DEC BC 
4137 54 LD D,H 
4138 5D LD E,L 
4139 13 INC DE 
4134 EDBO LDIR 
4130 C9 RET 
4130 218440 RVRS LD HL COLI 
4140 012000 LD BC,0020 
4143 7 LD A, (HL) 
4144 Саво ADD 8,80 
4146 77 LD CHL) ,а 
4147 18ED JR FILL 
4149 2420 РЕТІ LD H,2 
414B 1814 JR PLOT 
414р 2430 PLT2 LD H,30 
414F 1812 JR PLOT 
4151 CD494i PLIZ CALL PLTI 
4154 18F7 JR PLT2 
4156 2420 UPLi LD H,20 
4158 180Е JR UNPL 
415A 2430 UPL2 LD H,30 
415C 1806 JR UNPL 
415E CD5é4i — UP12 CALL UPLI 
4161 18F7 JR UPL2 
4143 FDCBSBD4 PLOT SET 2,(CDFG) 


1804 


JR PLT# 


LISTING 2 
P6. 7. 


4ié9"FDCB3B9ó UNPL RES 2,(CDFG2 
ED4B3440 PLT# LD BC,CCOOR? 


4160 
4171 
4173 
4174 
4175 
4178 
4179 
4і ға 
417C 
417E 
4180 
4182 
4184 
4186 


3i88 i 


418% 
4154 
4186 
418D 
418Е 
4191 
4193 
4195 
4194 
4198 
419С 
4i FE 
4180 
4162 
4154 
41655 
4187 
4168 
4іАБ 
41ҺЕ 
41Bi 
41Е2 
41B4 
41Б4 
4186 
4165 
41ВА 
41BE 


ЗЕ80 
зр 
90 
Lêê bÛ E 
5? 
5? 
CB3A 
CB1B 
свза 
СБІВ 
CE3A 
CBiB 
2Ей0 


010008 
CB02 
CRIL 
зр 
200С 
FDCBSES4 
2804 
CECI 
1802 
све! 
10ЕВ 
71 

CF 
CD2E0F 
FD4634 
ЗА3440 
ве 
28ға 
SEIE 
Е047 
C? 

йй 

80 

00 


бар 


BTLF 


STBT 


LD L,00 
ADD HL,DE 
LD D, (HO 
LD A,C 
AND 07 
INC А 


JR МЕ 4184 


RES 0,С 
DJNZ BTLP 
LD «но с 
БЕТ 

CALL SLOW 


LISTING 2 
Pá. 3 


REM WRXié-U2D DUAL HIRES 


LET ННІ =14448 
LET KRZ =14453 
LET HRi2-16458 
LET НЕЕ5=1 4644 
LET NRML=14472 
LET CLSi=1648i 
LET С_52=1 4486 
LET RVRS=16701 
LET РІТі=1 4713 
LET РЕТ2=14717 
LET Рі12=14721 
LET ШР 1147724 
LET UPL2-146730 
LET üPiz-14734 
LET ХР =14438 
LET ҮР -ié43? 
REM arevyplot demo 
FAST 

REM CLEAR BOTH DF*S 
RAND USR CLSi 
RAND USR CLS2 

FOR 1=10240 TO 10271 
REM H-LINE, DFi 
POKE 1,255 

REM H-LINE,DF2 
РОКЕ 1%5984,255 
МЕХТ 1 

REM V-LINE, BOTH DF*S 
POKE ХР,4 

FOR 1=0 TO 127 
FOKE УР,1 

RAND USR PLiz 
NEXT I 

REM V-MARKERS 


FOR 1=10080 TO 8192 STEP -192 


POKE 1,60 
POKE 1+2048, 60 

POKE 1+4094,40 

POKE 1+6144,60 

NEXT I 

REM H-MARKERS 

FOR 1-4 TO 244 STEP 10 
POKE ХР,1 

FOR J-2 TO 6 

POKE ҮР, 

RAND USR PLT2 

POKE YP,J+59 

RAND USR PLT1 

NEXT J 

NEXT 1 

REM LO-RES AXES 

FOR I=0 TO 63 

PLOT 1,12 

PLOT 1,27 


IF 1212 AND 1443 THEN PLOT 0,1 


NEXT 1 


LISTING q 


4 


ro 1 


Load "gPbEAT" 
( bis printer ) 


OR "BP bEM g " 
CTS 2040) 


КЕМ PLOT CURVES 

КЕМ F1:5INE CURVE 

(ЕТ A=" SIN (Hs PI /400* 

REM F2:DECAYING EXPONENTIAL 

LET B$=" EXP (-H/80)° 

FOR H=0 TO 251 

LET 21= VAL АФ 

LET 22- VAL BS 

POKE XP,H*4 

REM FUNCTION NO. 1 {DF 1) 

РОКЕ УР,63+60#21 

RAND USR PLTi 

REM FUNCTION NO.2 (DF 2) 

FOKE УР,63+40х22 

RAND USR PLT2 

REM FCTN.1 * FCTN.2 (BOTH) 

FOKE УР,63+60#21#22 

RAND USR PL12 

REM LO-RES PLOTTING 

PLOT INT ¢H/4)+1,27+15%2i 

PLOT INT (H/4)41,274+15%22 

PLOT INT (H/4)41,274+15#21%22 

NEXT H 

РОКЕ 16418,0 

PRINT AT 17,0; 

PRINT "хан 
PRINT *:1: DISPLAY DFi 2: DISPLAY DF2:" 
PRINT *:3: DISPLAY BOTH DISPLAY FILES :“ 
PRINT *:4: REVERSE HIGH - RES DISPLAYS:" 
PRINT “:5: RETURN TO NORMAL LR DISPLAY:" 
PRINT *:é: QUIT TO BASIC"; ТАВ 31;":" 
PRINT #* жеее э э ә а ҰН 
RAND USR HR12 

IF INKEY$ <> *" THEN GOTO 610 

LET 2$- INKET$ 

IF 2%-"" THEN GOTO 420 

IF 2$-'1* THEN RAND USR HRI 

IF 2%=*2" THEN RAND USR HRZ 

IF 2$="3" THEN RAND USR НК12 

IF 2$-'4" THEN RAND USR RURS 

IF 2$="5" THEN RAND USR NRML 

IF 2% <> "6" THEN GOTO 610 

RAND USR NRML 

STOF 

LET S$-"BIPLOT-DEMO" 

SAVE S$ 

РКІМТ 5% 

PRINT ,,"BE SURE THAT 8-14К SRAM ENABLED, 


HEN PRESS ANY KEY TO START ОЕМО" 


9994 
9995 
9996 
9997 
9998 
9999 


PAUSE 4E4 

CLS 

PRINT "PLEASE WAIT ABOUT 75 SECONDS...." 
PAUSE 200 

CLS 

RUN 


UST ING У 


fs. 


4086“ЕЗ 
4087 SE07 
4087 47 
40A 00 
40AB 10FD 
40AD CéF2 
40AF 3C 
40Е0 20FD 
4082 0480 
4084 112000 
40B7 210020 
40BA 343440 
40BD Е401 
40BF 17 
4000 17 
40C1 17 
40C2 17 
40C3 84 
40C4 67 
40C5 00 
40С4 
40CA 
40CC 
40CF 05 
40D0 
40D3 19 
40D4 7С 
40D5 
4007 7р 
4008 
4008 
4000 
40DF 23 
40Е0 
40E3 
40Е4 19 
40E7 


1808 


CD2002 
C36402 


4108~213E00 
410B 1808 

4100 213Е01 
4110 1803 

4112 21Eó01 
4115 228040 
4118 CD6841 


411В DD21A640 


411F С? 
4120 СрА841 


4123 DD218102 


4127 С? 


00218640 


DPLY 
TILO 
TILO 
DP-0 
TILO 
DP-A 
DELY 


BITO 


M¥16 
тока 


DELY 


DP-1 


DP-2 


DP-3 


DPL1 
DPL2 
DP12 


STOR 
HRES 


NRML 


4128 00 
4129 210020 
412C 1803 
DI 412Е 210030 
LD 4,07 4131 010010 
LD B,A 4134 3400 
МОР 4136 0B 
DJNZ DP-0 4137 54 
ADD A,F2 4138 5D 
INC A 4139 13 
JR М2 DF-A 4134 EDBO 
LD B,80 413C C? 
LD DE,0020  413D 218440 
LD HL,HRD1 4140 012000 
LD A,(FRMS) 4143 7E 
AND 01 4144 C480 
RLA 4146 77 
RLA 4147 18ED 
RLA 4149 2420 
RLA 414B 1816 
ADD A,H 414D 2630 
LD H,A 414F 1812 
NOP 4151 CD4941 
LD IX,DP-1 4154 18F7 
JR DP-2 4156 2620 
LD DE,0020 4158 180F 
DEC B 4154 2430 
JP 2 DP-3 415C 1808 
ADD HL,DE 415E Ср5441 
LD A,H 4161 18F7 
LD I,Á 4163 FDCB3BDé 
LD A,L 4147 1804 
JP C082 4169~FDCBSB96 
SBC HL,DE 4140 Е0483640 
SBC HL,DE 4171 3Е20 
INC HL 4173 3D 
LD HL,<DFIL) 4174 90 
LD DE,8231 4175 DAADOE 
ADD HL,DE 4178 57 
LD A,1E 4179 59 
LD 1,A 417A СВЗА 
LD A,FS 417C CB1B 
LD BC,0807 417E СВЗА 
CALL 0285 4180 CB1B 
CALL 0292 4182 СВЗА 
CALL 0220 4184 СВІБ 
LD IX,DPLY 4184 2Е00 
JP POPS 4188 19 
LD HL,003E па а 
JR STOR 418B E607 
LD HL,LDAL 4155 зс 
JR STOR 418E 010008 
LD HL,01E6 — 415: СВО? 
LD (BITO) HL 4154 CB11 
CALL 4148 4195 3D 
Rer de 4194 200C 
зре 
Call sisa 4198 FDCE3ES4 


LD IX,0281 
RET 


41?C 2804 


CLS1 


CLS2 
CLS* 


FILL 


RURS 


PLT1 
PLT2 
PL12 
UPL1 
UPL2 
UP12 
PLOT 


UNPL 
PLT® 


GADR 


BTLP 


NOP 
LD HL,HRD1 
JR CLS* 
LD HL,HRD2 
LD BC,1000 
LD (НО ,00 
DEC ВС 

LD D,H 

LD E,L 

INC DE 
LDIR 

RET 

LD HL,COL1 
LD BC,0020 
LD А, (HL) 
ADD A,80 
LD (HL) ,A 
JR FILL 

LD H,20 

JR PLOT 

LD H,30 

JR PLOT 
CALL РЕТІ 
JR PLT2 

LD H,20 

JR UNPL 

LD H,20 

JR UNPL 
CALL UPL1 
JR UPL2 


SET 2,(CDF6G) 


JR PLT# 
RES 2,(CDF6) 
LD BC, (COOR) 
LD 4,80 

DEC A 

SUB B 

JP C ERRB 
LD D,A 

LD E,C 

SRL D 

RR Е 

SRL D 

RR E 

SRL D 

RR E 

LD L,00 

ADD HL,DE 
LD D,CHLD 

LD A,C 

AND 07 

INC À 

LD ВС,0800 
RLC D 

RL C 

DEC À 

JR М2 4144 
BIT 2,(CDF6) 
JR Z RSBT 


STBT 


RSET 


REM WRX16-V2D 


SET 0,C 

JR 4144 
RES 0,C 
DJNZ BTLP 
LD (но „С 
БЕТ 

CALL SLOW 
LD B,(FRMS) 
LD A, (FRHS) 
CP B 

JR 2 41АЕ 
LD аи 

LD 1,A 

RET 


DUAL HIRES 


HR1 -14448 
HR2 -16453 
НК12-14458 
HRES=1 6664 
NRML=1 6672 
CLS1=16681 
CLS2=1 64686 
RVRS=16701 
PLT1=16713 
PLT2=16717 


PL12-14721 


UPL2=1 6730 
0Р12-16234 
LET ХР -14438 
LET ҮР 
greyplot а 
ҒА5Т 


UPL1=1472é 


ш16439 


ето 


REM CLEAR BOTH ОЕ"5 


RAND USR CLS1 
RAND USR CLS2 
FOR 1510240 TO 
REM H-LINE, DF 
POKE 1,255 

REM H-LINE,DF2 
POKE 145984,25 
NEXT I 


10271 
H 


5 


REM V-LINE, BOTH DF"S 


POKE XP,4 

FOR 1-0 TO 127 
POKE YP,I 

RAND USR PL12 
NEXT I 

REM V-MARKERS 


FOR 1510080 TO 8192 STEP -192 


POKE 1,40 

POKE 1%2048,40 
РОКЕ 1+4094,40 
POKE 1%4144,40 
МЕХТ 1 

REM H-MARKERS 
FOR I=4 TO 244 
POKE ХР,1 

FOR J-2 TO é 
POKE YP,J 


STEP 10 


RAND USR PLT2 
POKE ҮР,0%59 

RAND USR PLT1 

NEXT J 

NEXT I 

REM LO-RES AXES 

FOR 1=0 TO 63 

PLOT 1,12 

PLOT 1,27 | 

IF 1212 AND 143 THEN PLOT 0,1 
NEXT I 

REM PLOT CURVES 

REM F1:SINE CURVE 


LET A$-" SIN (H* PI 7/40)" 
REM F2:DECAYING EXPONENTIAL 
LET B$=" EXP (-Н/800" 

FOR H-0 TO 251 

LET 215 VAL A$ 

LET 22- VAL B$ 


POKE ХР,Н%4 
REM FUNCTION NO. 1 (DF 1) 

POKE УР,63+60#21 

RAND USR PLTI 

REM FUNCTION NO.2 (DF 2) 

POKE ҮР,43%40%22 

RAND USR PLT2 

REM FCTN.1 * FCTN.2 (BOTH) 

POKE ҮР,43%40%21%22 

RAND USR PL12 

REM LO-RES PLOTTING 

PLOT INT (Н/4)+1,27+15#21 

PLOT INT (H/4)*1,27415422 

PLOT INT (Н/4)+1,27+15#21#22 

NEXT H 

POKE 16418,0 

PRINT AT 17,0; 

PRINT "ЗЕ УЖ ЖЕЕ ЗЕ ЗЕ Ж ЕЖЕ Ж Ж ЭЕ Ж ЖЕ Ж OEC" 
PRINT *:1: DISPLAY DF1 2: DISPLAY DF2:* 
PRINT ":3: DISPLAY BOTH DISPLAY FILES :* 
PRINT *:4: REVERSE HIGH - RES DISPLAYS:" 
PRINT *:5: RETURN TO NORMAL LR DISPLAY:* 
PRINT ":6: QUIT TO BASIC"; ТАВ 31;":" 
PRINT " 3 CEXEXCEXEXXEXEEXEEXEEXOXE % Ж % Ж ЗЕ ЖЕЕ € €" 
RAND USR HR12 

IF INKEY$ <> '" THEN GOTO 410 

LET 2%- ІМКЕҮ% 

IF Z$-'* THEN GOTO 620 

IF 2%-"1" THEN RAND USR HRI 

IF 2%-"2" THEN RAND USR HR2 

IF 2$="3" THEN RAND USR HR12 

IF Z$=*4" THEN RAND USR RURS 

IF 2$="5" THEN RAND USR NRML 

IF Z$ <> "ó" THEN GOTO 410 

RAND USR NRML 

STOP 

LET S$="BIPLOT-DEMO" 

SAVE S$ 

PRINT "PLEASE WAIT ABOUT 75 SECONDS...." 
PAUSE 200 

CLs 

RUN 


LISTING 1 


ШЕХ1& CORE V2.1, CODE DISASSEMBLY 


DUMMY DISPLAY FILE 


addr HEXCODE NAME MNEMONIC 


4082 ED4F DUMY LD R,A 
4084 00 МОР 
4085 00 МОР 
4086 00 МОР 
4087 00 МОР 
4088 00 NOP 
4087 00 МОР 
408а 00 МОР 
403E 00 МОР 
408С 00 МОР 
408D 00 МОР 
408Е 00 МОР 
4üSF 00 МОР 
4090 00 МОР 
4091 00 МОР 
4092 00 МОР 
4093 00 МОР 
4094 00 МОР 
4095 00 МОР 
4094 00 МОР 
4097 00 МОР 
4098 00 МОР 
407»79-00 МОР 
4094 00 МОР 
4096 00 МОР 
40°С 00 МОР 
4090 00 МОР 
409Е 00 МОР 
409F 00 МОР 
4060 00 NOP 
4041 00 МОР 
4062 00 МОР 
40A3 00 МОР 
40A4 DDE? JP (DO 


DRIVER CODE 


40А4^ЕЗ DPLY 


4087 
406? 
4088 
40AB 
40AD 
40AF 
4080 
4082 
4084 
4087 
40BA 
40BE 
40C0 
40C3 
40C4 
40C7 
40с8 
40C9 
40CB 
4D0CC 
40CF 
40D1 

40D3 
40D4 
4007 
4004 
4008 
4000 
40DF 
40E1 

40E4 
40E7 
40ЕА 
40Е0 
40F1 

40Е4 
40F8 
40F9 
40FB 
40FD 
4101 


3E07 TILO 
47 TILO 
00 0Р-0 


CéEF TILO 
3c DP-A 


112000 DELY 


1808 
112000 рР-1 


?C DP-2 


Ер52 DP-3 
Ер52 DELY 
23 DELY 


00214640 
C3A402 
00214640 HRES 


ЗЕ1Е NRML 
ED47 
DD218102 

С? 


LISTING 2: MACHINE-CODE LOADER 


9000 REM LOADER 


9010 FAST 
9020 CLS 


9030 PRINT "START? "; 


9040 INPUT ST 


9050 PRINT ST,'BYTES? "; 


9060 INPUT BY 
9070 PRINT BY 


9080 FOR N=ST TO ST+BY-1 


9090 INPUT V 
9100 POKE N,U 


9110 PRINT ( STR$ (U*100000(2 TO );":"; 


9120 NEXT N 


DI 
LD 4,07 

LD B,A 

МОР 

DJNZ 0Р-0 
ADD A,EF 
INC A 

JR М2 DP-A 
LD B,B0- 
LD DE,0020 
LD HL,HRDF 
LD IX,DP-1 


LD HL,(DFIL) 
LD DE,82F7 
ADD HL ,DE 
LD A,1E 

LD I,4 

LD A,F5 

LD BC,0207 
CALL DP-5 
CALL MRGN 
CALL DEND 
LD IX,DPLY 
JP POPS 

LD IX,DPLY 
RET 

LD А,1Е 

LD 1,A 

LD IX,0281 
RET 


TABLE 1: WRX16-V2 CORE (DECIMAL) 


START=16514 BYTES-128 

237:079:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:221:233:243:042:007:071: 
000:014:253:198:239:040:032:253: 
006:176:017:032:000:033:000:032: 
221:033:192:064:024:008:017:032: 
000:005:202:207:044:025:124:237: 
071:125:195:130:192:237:082:237: 
082:035:042:012:044:017:247:130: 
025:042:030:237:071:042:245:001: 
007:002:205:181:002:205:144:002: 
205:032:002:221:033:164:044:195; 
144:002:221:033:146:044:201:042: 
030 :237:071:221:033:129:002:201: 


OFTIONAL SYNCHRONIZING ROUTINE 
CALL THIS BEFORE CHANGING MODES 
TO PREVENT SCREEN FLICKER, 


E.G. CALL SYNC 
JP HRES 
OR 
CALL SYNC 
JP NRML 


addr HEXCODE МАМЕ MNEMONIC 
4105 CD2B0F SYNC CALL SLOW 
4108 Ғ04534 LD В,(ҒЕМ5) 
4108 362440 МЕМ? LD A,<FRMS) 


410E BS CP B 
410F 28ҒА JR 2 NFM? 
4111 C9 RET 


TABLE 2: BI-PLOT WRX16 CORE 


5ТАКТ-1 4514 BYTES=128 

237:079:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000 :000:221 :233:243:062:007:071: 
000 :016:253:198:242:060:032:253: 
006:128:017:032:000:033:000:032: 
058:052:044:230:001:023:023:023: 
023:132:103:000:221:033:204:044: 
024:008:017:032:000:005:202:219: 
064:025:124:237:071:125:195:130: 
192:237:082:237:082:035:042:012: 
064:017:049:130:025:042:030:237: 
071:062:245:001:007:008:205:181: 
002:205:146:002:205:032:002:221: 
033:166:0564:195:164:002:000:000: 


TABLE 3: BIPLOT SERVICE ROUTINES 


START=1 6648 BYTES=177 
033:062:000:024:008:033:062:001: 
024:003:033:230:001:034:189:044: 
205:148:065:221:033:146:044:201: 
205:148:045:221:033:129:002:201: 
000:033:000:032:024:003:033:000: 
048:001:000:016:054:000:011:084: 
093:019:237:176:201:033:132:064: 
001:032:000:126:198:128:119:024: 
237:038:032:024:022:038:048:024: 
018:205:073:045:024:247:038:032: 
024:015:038:048:024:011:205:086: | 
045:024:247:253:203:059:214:024: 
004:253:203:059:150:237:075:054: 
044:062:128:061:144:218:173:014: 
087:089:203:058:203:027:203:058: 
203:027:203:058:203:027:046:000: 
025:086:121:230:007:040:001:000: 
008:203:002:203:017:041:032:012: 
253:203:059:084:040:004:203:193: 
024:002:203:129:014:235:113:201: 
205:043:015:253:070:052:058:052: 
044:184:040:250:062:030:237:071: 
201: 


LISTING 1: 


ЫКХ1% CORE V2.1, CODE DISASSEMBLY 


DRIVER CODE 


DUMMY DISPLAY FILE 40А6“ҒЗ 
4047 3Е07 
addr HEXCODE NAME ММЕМОМІС 4049 47 
4082 ED4F DUMY LD К,А 40АВ 10FD 
4084 00 NOP 4080 CéEF 
4085 00 NGP 40AF SC 
4086 00 NOP 4080 20FD 
4087 00 NOP 4082 0460 
4088 00 МОР 4084 112000 
4089 00 МОР 4087 210020 
408A 00 МОР 40BA DD21C040 
408B 00 МОР 40ВЕ 1808 
408C 00 МОР 40C0 112000 
408D 00 МОР 40€3 05 
408Е 00 МОР 40C4 САСЕ40 
408F 00 МОР 40C7 19 
4090 00 МОР 40C8 7С 
4091 00 МОР 40C9 ED4? 
4092 00 МОР 40СВ 7р 
4053 00 мағ 40CC C382C0 
4094 00 МОР 40CF EDS2 
4095 00 МОР 4001 EDS2 
4096 00 МОР 4003 23 
дағ? 00 мағ 4004 2A0C40 
4098 00 МОР 40D7 11Е782 
4079-00 МОР 400A 19 
409A 00 NOP 4008 3E1E 
409B 00 МОР 40DD ED47 
409C 00 NOP 40DF 3EF5 
4090 QQ NOP 40E1 010702 
409E 00 NOP 40E4 CDB502 
409F 00 мағ 40E7 CD9202 
40450 00 NOP 40E^ CD2002 
4061 00 NOP 40Е0 00214640 
4062 00 МОР 40Е1 СЗА402 
4053 oa мар 40Ғ4 00214640 
4064 DDE? JP (IX) 40F8 C? 
40F? ЗЕ1Е 
40FB ED47 
40FD DD218102 
4101 C? 


LISTING 2: MACHINE-CODE LOADER 


9000 REM LOADER 

9010 FAST 

9020 CLS 

9030 PRINT "START? "j 
9040 INPUT ST 

9050 PRINT ST, "BYTES? "; 
9060 INPUT BY | 
9070 PRINT BY 

9080 FOR N=ST TO ST+BY-1 
9090 INPUT У 

9100 POKE N,U 


DPLY 
TILO 
TILO 
0Р-0 


TILO 
ОР-А 


DELY 


DP-1 


DI 

LD 4,07 

LD B,A 
NOP 

DJN2 DP-0 
ADD A,EF 
INC À 

JR NZ DP-A 
LD 5,50 

LD DE,0020 
LD HL,HRDF 
LD IX,DP-1 
JR DP-2 

LD DE,0020 


: DEC B 


DP-2 


DP-3 
DELY 
DELY 


HRES 
NRML 


9110 PRINT € STR$ (U*10000)(2 TO 2;":*; 


9120 NEXT N 


JP 2 DP-3 
ADD HL,DE 
LD A,H 

LD I,A 

LD ад 

JP C082 
SBC HL,DE 
SBC HL,DE 
INC HL 

LD HL,(DFIL) 
LD DE,82F7 
ADD HL,DE 
LD &,1E 

LD 1,A 

LD A,FS 

LD BC,0207 
CALL DP-5 
CALL MRGN 
CALL DEND 
LD IX,DPLY 
JP POPS 

LD IX,DPLY 
RET 

LD A,1E 

LD 1,A 

LD IX,0281 
RET 


—ar Ar a 


TABLE 1: URX1ó-U2 CORE (DECIMAL) 


START=16514 BYTES=1 28 

232:079:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:221:233:243:062:007:071: 
000:014:253:198:239:040:032:253: 
006:176:017:032:000:033:00010321: 
221:033:192:044:024:008:017:032: 
000:005:202:207:044:025:124:237: 
071:125:195:130:192:2371082:237: 
082:035:042:012:044:017:247:130: 
025:062:030:237:071:062:245:001: 
007:002:205:181:002:205:146:002: 


205:032:002:221:033:126:044:195: | 


154:002:221:033:146:044:201:042: 
030:237:071:221:033:129:002:201: 


OPTIONAL SYNCHRONIZING ROUTINE 
CALL THIS BEFORE CHANGING MODES 
TO PREVENT SCREEN FLICKER. 


E.G. CALL SYNC 
JP HRES 
OR 
CALL SYNC 
JP NRML 


addr HEXCODE NAME MNEMONIC 


(oct aie oe eee eto 


4105 CD2B0F SYNC CALL SLOW 
4108 FD4434 LD В, (FRMS) 
4108 343440 МЕМ? LD A, РЕМ) 
410E BS CP B 

410F 28Fñ JR Z NFM? 
4111 C$ RET 


TABLE 2: BI-PLOT WRX16 CORE 


START=16514 BYTES=1 28 

237:079:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:000:000:000:000:000:000: 
000:000:221:233:243:042:007:071: 
000:014:253:198:242:0640:032:253: 
004:128:017:032:000:033:000:032: 
058:052:044:230:001:023:023:023: 
023:132:103:000:221:033:204:064: 
024:008:017:032:000:005:202:219: 
044:025:124:237:071:125:195:130: 
192:237:082:237:082:035:042:012: 
064:017:049:130:025:062:030:237: 
071:062:245:001:007:008:205:181: 
002:205:14%:002:205:032:002:221: 
033:166:064:195:164:002:000:009: 


TABLE 3: BIPLOT SERVICE ROUTINES 


START=1 6648 BYTES=177 
033:062:000:024:008:033:042:001: 
024:003:033:230:001:034:189:044: 
205:168:065:221:033:166:0641201: 
205:148:045:221:033:129:002:201; 
000:033:000:032:024:003:033:000: 
048:001:000:016:054:000:011:084: 
093:019:237:176:201:033:132:064: 
001:032:000:126:198:128:119:024: 
237:038:032:024:022:038:048:024: 
018:205:073:065:024:247:038:032: 
024:015:038:048:024:011:205:084: 
045:024:247:253:203:059:214:024: 
004: 253:203:059:150:237:075:054: 
064:062:128:061:144:218:173:014: 
087:0897:203:058;203:027:203:058: 
203:027:203:058:203:027:046:000: 
025:086:121:230:007:040:001:000: 
008:203:002:203:017:061:032:012:; 
253:203:05%:084:040:004:203:193: 
024:002:203:129:014:235:113:201: 
205:043:015:253:070:052:058:052; 
084:184:040:250:062:030:2371071: 
201: 


40A6^F3 
4047 3Е07 
40A? 47 
40AA 00 
40AB 10FD 
40AD CéF2 
40AF 3C 
4080 20FD 
4082 0430 
4084 112000 
4087 210020 
40БА 343440 
4080 Е401 
40БЕ 17 
40C0 17 
40C1 17 
40C2 17 
40C3 84 
40C4 67 
40C5 00 


40Có DD21CC40 


40СА 1806 
40СС 112000 
40CF 05 
4000 CADE40 
4003 19 
4004 7С 
4005 ED47 
4007 70 
4008 С382С0 
4008 EDS2 
4000 EDS2 
40DF 23 
40E0 260C40 
40ЕЗ 113182 
40Е4 19 
40E7 ЗЕ1Е 
40E? ED47 
40EB ЗЕҒ5 
40ED 010708 
40F0 CDB502 
40ЕЗ С09202 
40Ғ6 CD2002 


40F? 00218640 


40FD C36402 


41087213Е00 
410B 1808 

4100 213Е01 
4110 1803 

4112 21Е601 
4115 228040 
4118 CD6841 


411В 00218640 


411F C? 
4120 CDA841 


4123 DD218102 


4127 C? 


DP-2 


DP-3 


DPL1 
DPL2 
DP12 


STOR 
HRES 


NRHL 


4128 00 
4129 210020 
412C 1803 
DI 412E 210030 
LD 4,07 4131 010010 
LD B,A 4134 3600 
МОР 4136 0B 
0442 DP-0 4137 54 
ADD A,F2 4138 5D 
INC À 4129 13 
JR NZ DP-A 4134 EDBO 
LD Б,80 413C C9 
LD DE,0020  413D 218440 
LD HL,HRD! 4140 012000 
LD A,CFRMS) 4143 7E 
AND 01 4144 C480 
RLA 4146 77 
RLA 4147 18ED 
RLA 4149 2420 
RLA 414B 1816 
ADD A,H 414D 2630 
LD H,A 414F 1812 
МОР 4151 CD4941 
LD IX,DP-1 4154 18F7 
JR DP-2 4156 2620 
LD DE,0020 4158 180F 
DEC B 415A 2430 
JP 2 DP-3 415С 1808 
ADD HL,DE 415E С05441 
LD A,H 4161 18F7 
LD I,A 4163 FDCB3BD6 
LD A,L 4167 1804 
JP C082 4169"FDCBSB96 
SBC HL,DE 4140 Е0483640 
SBC HL,DE 4171 3E80 
INC HL 4173 3D 
LD HL,(DFIL)4174 90 
LD DE,8231 4125 DAADOE 
ADD HL,DE 4178 57 
LD A,1E 4179 59 
LD 1,4 417A СВЗ 
LD A,FS 17C СВІБ 
LD BC,0807 417Е СВЗА 
CALL 0285 4180 CBIB 
CALL 02?2 4182 CB3A 
CALL 0220 4184 СВ1В 
LD IX,DPLY 4184 2Е00 
JP POPS 4188 19 
TELE 
DPA 416B E607 
LD HL,LDAL — 416p зс 
JR STOR 418E 010008 
LD HL,01Eó Шр СВО? 
LD (BITO),HL 4193 cgi] 
CALL 4148 195 3p 
LD IX DPLY 4196 200C 
КЕТ 4198 ҒОСВЗВ54 
CALL 4148 419C 2804 
LD 1Х,0281 
RET 


са 


CLS2 
CLS# 


FILL 


RURS 


PLT1 
PLT2 
PL12 
UPL1 
UPL2 
UP12 
PLOT 


ИЧР. 
PLT% 


GADR 


BTLP 


NOP 
LD HL, HROL 
JR CLS* 

LD HL,HRD2 
LD BC,1000 
LD (HL),00 
DEC BC 


LD HL,COL! 
LD BC,0020 
LD A, (HL) 
ADD A,80 


LD (но ,а 


JR FILL 
LD H,20 

JR PLOT 

LD H,30 

JR PLOT 
CALL PLT1 
JR PLT2 
LD H,20 

JR UNPL 

LD H,20 

JR UNPL ` 
CALL UPL1 
JR UPL2 
SET 2, (CDFG) 
JR PLT# 
RES 2,(CDFG) 
LD BC, (COOR) 
LD A,80 
DEC А 

SUB B 

JP C ERRB 
LD D,A 

LD Е,С 

SRL D 

RR E 

SRL D 

RR E 

SRL D 

RR E 

LD 1,00 
ADD HL,DE 
LD D,CHL) 
LD A,C 
AND 07 

INC À 

LD BC,0800 
RLC D 

RL C 

DEC А 

JR NZ 4144 
BIT 2,(CDF6) 
JR 2 RSBT 


CECI STBT SET 0,C 
1802 JR 4184 
CB81 RSBT RES 0,C 
10EB DJNZ BTLP 
71 LD (HL),C 
C? RET 
CD2B0F CALL SLOW 
Е04634 LD B,(FRMS) 
343440 LD А, (FRMS) 
B8 CP B 
2ВЕА JR 2 41АЕ 
3E1E АЕ 
Е047 LD I,A 

RET 


WRX16-UV2D DUAL HIRES 
HR1 =16648 
HR2 =16453 
HR1 2=1 5658 
НКЕ5= 1 5664 
NRML=1 6672 
CLS1216681 
CLS2=1 6686 
RVRS=16701 
PLT1=16713 
PLT2=16717 
Р.12:14721 
UPL 1216726 
UPL2=16730 
UP12=16734 
ХР =16438 
ҰР «14439 
greyplot demo 


LISTING 4 
BI-PLOT 
BASIC 


REM CLEAR BOTH DF*S 
RAND USR CLS1 

RAND USR CLS2 

FOR 1510240 TO 10271 
REM H-LINE, DF1 

POKE 1,255 

REM H-LINE,DF2 

POKE 145984,255 

NEXT 1 

REM U-LINE, BOTH DF*S 
POKE XP,4 

FOR 1-0 TO 127 

POKE YP,1 

RAND USR PL12 

NEXT I 

REM V-MARKERS 

FOR 1210080 TO 8192 STEP -192 
POKE 1,40 

POKE 1%2048,40 

POKE 144096,40 

POKE 1*6144,40 

NEXT I 

REM H-MARKERS 

FOR 1-4 TO 244 STEP 10 
POKE XP, 1 

FOR J=2 TO é 

POKE YP,J 


RAND USR PLT2 
POKE ҮР,4%59 

RAND USR РЕТІ 
NEXT J 

NEXT I 

REM LO-RES AXES 
FOR 1=0 TO 63 
PLOT I,12 

PLOT 1,27 

IF 1212 AND 143 THEN PLOT 0,1 
NEXT I 

REM PLOT CURVES 
Fi:SINE CURVE 


LET азе" SIN (H* P] /40)# 
REM F2:DECAYING EXPONENTIAL 
LET B$=" EXP (-H/80)" 
FOR Н=0 ТО 251 
LET 21 VAL ñ$ 

5 LET 22- VAL B$ 


POKE XP,H*4 

REM FUNCTION NO. 
POKE YP,63*60*21 
RAND USR PLTI 
REM FUNCTION NO.2 (DF 2) 
POKE УР,43+40#22 

RAND USR PLT2 


1 «DF 1) 


) REM FCTN.1 ж FCTN.2 (BOTH) 


POKE УР,63+60#21#22 

RAND USR PL12 

КЕМ LO-RES PLOTTING 

PLOT INT (H/4)*1,27*159*21 

PLOT INT (Н/42%1,27%15%22 

PLOT INT (Н/4)+1,27+15#21#22 

NEXT H 

POKE 16418,0 

PRINT АТ 17,0; 

PRINT "330 00000( 3 3 (X Ж ЗЕ Ж ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ 3F E XK 8 3 2 2 2 я 
PRINT *:1: DISPLAY DFi 2: DISPLAY ОЕ2:“ 
PRINT *:3: DISPLAY BOTH DISPLAY FILES :* 
PRINT *:4: REVERSE HIGH ~ RES DISPLAYS!" 
PRINT ":5: RETURN TO NORMAL LR DISPLAY:" 
PRINT “sé: QUIT TO BASIC"; TAB 31;*:" 
PRINT "3930090900930 FF FF E E IO E ¢ 2F E 3F FF 2F 2 3% ¥ 
RAND USR HR12 

IF INKEY$ <> *" THEN GOTO 410 

LET 2$- ІМКЕҮ% 

IF 2%=** THEN GOTO 620 

IF 2%х"1“ THEN RAND USR HRI 

IF 2%х"2“ THEN RAND USR HR2 

IF 2%ш"3" THEN RAND USR НК12 

IF 2%="4" THEN RAND USR RURS 

IF 2$2*5* THEN RAND USR NRML 

IF 2% <> "ó" THEN GOTO 610 

RAND USR NRL 

STOP 

LET S$="BIPLOT-DEMO" 

SAVE 5% 

PRINT "PLEASE WAIT ABOUT 75 SECONDS...." 
PAUSE 200 

CLS 

RUN 


